home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
multlang.zip
/
MMSG.DFM
/
MMSG.txt
Wrap
Text File
|
1996-06-10
|
2KB
|
108 lines
object MMsgDlg: TMMsgDlg
Left = 255
Top = 155
Width = 382
Height = 264
Caption = 'Message dialogs'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 4
Top = 4
Width = 361
Height = 93
Alignment = taCenter
AutoSize = False
Caption =
'The TMultLang component can also translate all buttons and title' +
's of standard message dialogs like ShowMessage, MessageDlg or In' +
'putQuery together with the MButtons component. The MButtons comp' +
'onent subclasses any sub dialog automatically.'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 96
Width = 357
Height = 33
AutoSize = False
Caption =
'Click on any of the buttons below to show a translated message d' +
'ialog (Title, OK, No, Yes buttons etc)'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object MultLang1: TMultLang
Left = 320
Top = 44
Width = 37
Height = 22
AlignIcon = alLeft
AlignText = alLeft
IconMargin = 1
ItemHeight = 16
Items.Strings = (
'English'
'Swedish')
ShowIcons = False
Text = 'English'
ResizeIcon = False
TextMargin = 5
DefaultLanguage = 'English'
LanguageFile = '%EXEPath%Mdiapp.lan'
LanguagesData = {}
end
object Button1: TButton
Left = 100
Top = 140
Width = 145
Height = 25
Caption = 'ShowMessage'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 100
Top = 172
Width = 145
Height = 25
Caption = 'MessageDlg'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 100
Top = 204
Width = 145
Height = 25
Caption = 'InputQuery'
TabOrder = 3
OnClick = Button3Click
end
object MButtons1: TMButtons
Captions.Strings = (
'OK|&Accept'
'Cancel|&Break'
'Yes|&Yep'
'No|&No thanks')
Title = 'Window Title, usually the name of your EXE file'
Left = 8
Top = 52
end
end